'ratita australopitecus
'por/by Anazasi
'primer/first bot;)

cond
 *.robage 0 =
start
 .tie inc
stop

cond
 *.robage 1 =
start
 .deltie inc
stop

cond
 *.eye1 *.eye5 >
 *.refeye *.myeye != and
start
-157 .aimdx store
stop

cond
 *.eye2 *.eye5 >
 *.refeye *.myeye != and
start
-100 .aimdx store
stop

cond
 *.eye3 *.eye5 >
 *.refeye *.myeye != and
start
-78 .aimdx store
stop

cond
 *.eye4 *.eye5 >
 *.refeye *.myeye != and
start
-15 .aimdx store
stop

cond
 *.eye6 *.eye5 >
 *.refeye *.myeye != and
start
15 .aimdx store
stop

cond
 *.eye7 *.eye5 >
 *.refeye *.myeye != and
start
78 .aimdx store
stop

cond
 *.eye8 *.eye5 >
 *.refeye *.myeye != and
start
100 .aimdx store
stop

cond
 *.eye9 *.eye5 >
 *.refeye *.myeye != and
start
157 .aimdx store
stop

cond
 *.eye1 0 =
 *.eye2 0 = and
 *.eye3 0 = and
 *.eye4 0 = and
 *.eye5 0 = and
 *.eye6 0 = and
 *.eye7 0 = and
 *.eye8 0 = and
 *.eye9 0 = and
 *.refeye *.myeye = or
start
314 .aimdx store
stop

cond
 *.eye5 0 >
 *.refeye *.myeye !=
start
 *.refveldx .dx store
 *.refvelup 15 add .up store
stop

cond
*.refeye *.myeye !=
*.eye5 25 >
start
13 .tie store
stop

cond
*.tiepres 0 >
*.tienum 0 =
start
*.tiepres .tienum store
stop

cond
 *.tienum 0 >
 *.trefeye *.myeye = and
start
*.tiepres .deltie store
stop

cond
*.tienum 0 >
 *.refeye *.myeye != and
start
-1 .tieloc store
-1000 .tieval store
stop

cond
 *.eye5 25 >
 *.refeye *.myeye !=
start
-6 .shoot store
 *.refvelup .up store
stop

cond
 *.nrg 10000 >
start
 50 .repro store
stop
end